home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_152_Menu.Font < prev    next >
Encoding:
Text File  |  1992-04-08  |  929 b   |  63 lines
  1. { %filename% }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. Unit %UnitName%;
  5. Interface
  6.  
  7. Uses
  8.     %if lang = MPW%
  9.         Types,
  10.         Quickdraw,
  11.         Controls,
  12.         Dialogs,
  13.         Events,
  14.         Lists,
  15.         Menus,
  16.         StandardFile,
  17.         TextEdit,
  18.         Fonts,
  19.  
  20.     %end if%
  21.     %for each menuItem gen usesDialog%
  22.  
  23.     Globals,
  24.     Miscellany,
  25.     ResourceDefs;
  26.  
  27. {----------}
  28. Procedure Init%MenuName%M;
  29. Procedure Choose%MenuName%     (itemNr:    integer);
  30.  
  31. {----------}
  32. Implementation
  33.  
  34. %if lang = MPW%
  35.     {$D+}
  36.     {$R+}
  37.     {$OV+}
  38.     {$S %unitname%}
  39.  
  40. %end if%
  41. var
  42.     nrFonts:        integer;
  43.  
  44. {----------}
  45. Procedure Init%MenuName%M;
  46. Begin
  47.     nrFonts := countMItems (FontMenu);
  48. End; {Init%MenuName%M}
  49.  
  50. %for each menuitem gen doItem%
  51. {----------}
  52. Procedure Choose%MenuName%    (itemNr:    integer);
  53. var
  54.     fontName:        Str255;
  55.     fontNum:        integer;
  56. Begin
  57.     DoRadioMenu (%menuName%Menu, 1, nrFonts, itemNr);
  58.     GetItem (%menuName%Menu, itemNr, fontName);
  59.     GetFNum (%menuName%Name, fontNum);
  60. End; {Choose%MenuName%}
  61.  
  62. End. {%UnitName%}
  63.